X-Git-Url: https://permondes.de/gitweb/Analog_Engine.git/blobdiff_plain/7fbf87e4750e1393d9b6395818b70000ca99c758..6e4089e8217c971c0154c414f5fed5d0807d179e:/scripts/Radioactive%20Decay.AESL

diff --git a/scripts/Radioactive Decay.AESL b/scripts/Radioactive Decay.AESL
new file mode 100644
index 0000000..ef7fcdf
--- /dev/null
+++ b/scripts/Radioactive Decay.AESL	
@@ -0,0 +1,23 @@
+IDENTIFICATION DIVISION
+PROGRAM-ID Radioactive_Decay
+
+ENVIRONMENT DIVISION
+ENGINE Anabrid-THAT
+REQUIRES COEFFICIENT 2
+REQUIRES INTEGRATOR 1
+REQUIRES INVERTER 1
+
+DATA DIVISION
+OUTPUT OUTPUT.X N
+COEFFICIENT.1 InitialValue
+COEFFICIENT.2 Decay 
+
+PROGRAM DIVISION
++1 -> COEFFICIENT.InitialValue -> N0
+N’, IC:N0 -> INTEGRATOR -> -N
+-N -> COEFFICIENT.Decay -> -lambda*N=N’
+-N -> INVERTER -> N
+
+OPERATION DIVISION
+MODE REPEAT
+OP-TIME 20ms